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Way. 1 , 1 983 


3aaif Bob JabrlA, 

Below Ia a. llAtlng. In AAtro8AS3C of the. "Sailer Problem In 
the. S^-ne 1983 lAAue of Popular C ornp,utlng. t pa g.e 211 . 

line 3 and 5, below, are. equivalent to 3IF K/J = INT(K/J) 
THEN S=s + 1, and. 5lF S/2=lNT(S/2) THEN 7. 

UU£ SA3f.tR PROBim 

adapte.d for AA-t.ro B a Ate 

1 CLEAR ;NT=0 ;SM=4;C=0*,K=1 ;GOSUB 9 

2 FOR K=2 TO 100 ; 0=0 ; FOR J=1 TO K 
*3 N=K/ J ; IF RM=0 S=S+1 

4 NEXT J 

*5 N=S/ 2 ; IF RM=0 GOTO 7 

6 GOSUB 9 

7 NEXT K 

*R PRINT '* ,#2 , C , "_CELLS" , ; GOSUB 10;STOP 

*9 PRINT " CELL_#" , #3 ,K, ; GOSUB 10 ; C=C+1 ; RETURN 

*10 PRINT »_WILL_BE_OPEN" ; RETURN 

*K/J is the same as K-fJ 
* is the same as (SPACE) 


Jhe AAtroeade taheA about 2.75 mtnuteA to eomp.lete thlA 
program. 3 figure that the AAtroeade doeA about 485 eomputataonA. 
Uhat equalA about 176 eomputatlonA per minute or 3 per Aeeond. 
taeh co mputatlo n taheA about 333 rnllllAeeondA. 


Slneerely., 



ene : 1 



